home *** CD-ROM | disk | FTP | other *** search
/ Master Visual Basic 3 / Master Visual Basic 3 (SAMS Publishing) (1994).ISO / mvprog / original / ch11 / seticon.frm (.txt) < prev    next >
Encoding:
Visual Basic Form  |  1994-03-20  |  5.1 KB  |  174 lines
  1. VERSION 2.00
  2. Begin Form frmSetIcon 
  3.    BackColor       =   &H00FFFF80&
  4.    Caption         =   "The SetIcon Program"
  5.    ClientHeight    =   2415
  6.    ClientLeft      =   1095
  7.    ClientTop       =   1485
  8.    ClientWidth     =   2175
  9.    Height          =   2820
  10.    Icon            =   SETICON.FRX:0000
  11.    Left            =   1035
  12.    LinkTopic       =   "Form1"
  13.    MaxButton       =   0   'False
  14.    ScaleHeight     =   2415
  15.    ScaleWidth      =   2175
  16.    Top             =   1140
  17.    Width           =   2295
  18.    WindowState     =   1  'Minimized
  19.    Begin PictureBox Picture8 
  20.       AutoSize        =   -1  'True
  21.       BackColor       =   &H00C0C0C0&
  22.       Height          =   495
  23.       Left            =   720
  24.       ScaleHeight     =   465
  25.       ScaleWidth      =   465
  26.       TabIndex        =   9
  27.       Top             =   1200
  28.       Width           =   495
  29.    End
  30.    Begin PictureBox Picture7 
  31.       AutoSize        =   -1  'True
  32.       Height          =   510
  33.       Left            =   720
  34.       Picture         =   SETICON.FRX:0302
  35.       ScaleHeight     =   480
  36.       ScaleWidth      =   480
  37.       TabIndex        =   8
  38.       Top             =   1200
  39.       Visible         =   0   'False
  40.       Width           =   510
  41.    End
  42.    Begin PictureBox Picture6 
  43.       AutoSize        =   -1  'True
  44.       Height          =   510
  45.       Left            =   720
  46.       Picture         =   SETICON.FRX:0604
  47.       ScaleHeight     =   480
  48.       ScaleWidth      =   480
  49.       TabIndex        =   7
  50.       Top             =   1200
  51.       Visible         =   0   'False
  52.       Width           =   510
  53.    End
  54.    Begin PictureBox Picture5 
  55.       AutoSize        =   -1  'True
  56.       Height          =   510
  57.       Left            =   720
  58.       Picture         =   SETICON.FRX:0906
  59.       ScaleHeight     =   480
  60.       ScaleWidth      =   480
  61.       TabIndex        =   6
  62.       Top             =   1200
  63.       Visible         =   0   'False
  64.       Width           =   510
  65.    End
  66.    Begin PictureBox Picture4 
  67.       AutoSize        =   -1  'True
  68.       Height          =   510
  69.       Left            =   720
  70.       Picture         =   SETICON.FRX:0C08
  71.       ScaleHeight     =   480
  72.       ScaleWidth      =   480
  73.       TabIndex        =   5
  74.       Top             =   1200
  75.       Visible         =   0   'False
  76.       Width           =   510
  77.    End
  78.    Begin PictureBox Picture3 
  79.       AutoSize        =   -1  'True
  80.       Height          =   510
  81.       Left            =   720
  82.       Picture         =   SETICON.FRX:0F0A
  83.       ScaleHeight     =   480
  84.       ScaleWidth      =   480
  85.       TabIndex        =   4
  86.       Top             =   1200
  87.       Visible         =   0   'False
  88.       Width           =   510
  89.    End
  90.    Begin PictureBox Picture2 
  91.       AutoSize        =   -1  'True
  92.       Height          =   510
  93.       Left            =   720
  94.       Picture         =   SETICON.FRX:120C
  95.       ScaleHeight     =   480
  96.       ScaleWidth      =   480
  97.       TabIndex        =   3
  98.       Top             =   1200
  99.       Visible         =   0   'False
  100.       Width           =   510
  101.    End
  102.    Begin PictureBox Picture1 
  103.       AutoSize        =   -1  'True
  104.       Height          =   510
  105.       Left            =   720
  106.       Picture         =   SETICON.FRX:150E
  107.       ScaleHeight     =   480
  108.       ScaleWidth      =   480
  109.       TabIndex        =   2
  110.       Top             =   1200
  111.       Visible         =   0   'False
  112.       Width           =   510
  113.    End
  114.    Begin Timer Timer1 
  115.       Interval        =   250
  116.       Left            =   120
  117.       Top             =   720
  118.    End
  119.    Begin CommandButton cmdExit 
  120.       Caption         =   "E&xit"
  121.       Height          =   495
  122.       Left            =   360
  123.       TabIndex        =   1
  124.       Top             =   1800
  125.       Width           =   1215
  126.    End
  127.    Begin CommandButton cmdPaintbrush 
  128.       Caption         =   "&Start Paintbrush"
  129.       Height          =   495
  130.       Left            =   120
  131.       TabIndex        =   0
  132.       Top             =   120
  133.       Width           =   1935
  134.    End
  135. Option Explicit
  136. Sub cmdExit_Click ()
  137.     End
  138. End Sub
  139. Sub cmdPaintbrush_Click ()
  140.     Dim Instance
  141.     Instance = Shell("Pbrush.EXE", 1)
  142.     End
  143. End Sub
  144. Sub Timer1_Timer ()
  145.      Static Flag
  146.      
  147.      If Flag = 0 Then
  148.         frmSetIcon.Icon = Picture1.Picture
  149.         Picture8.Picture = Picture1.Picture
  150.      ElseIf Flag = 1 Then
  151.         frmSetIcon.Icon = Picture2.Picture
  152.         Picture8.Picture = Picture2.Picture
  153.      ElseIf Flag = 2 Then
  154.         frmSetIcon.Icon = Picture3.Picture
  155.         Picture8.Picture = Picture3.Picture
  156.      ElseIf Flag = 3 Then
  157.         frmSetIcon.Icon = Picture4.Picture
  158.         Picture8.Picture = Picture4.Picture
  159.      ElseIf Flag = 4 Then
  160.         frmSetIcon.Icon = Picture5.Picture
  161.         Picture8.Picture = Picture5.Picture
  162.      ElseIf Flag = 5 Then
  163.         frmSetIcon.Icon = Picture6.Picture
  164.         Picture8.Picture = Picture6.Picture
  165.      ElseIf Flag = 6 Then
  166.         frmSetIcon.Icon = Picture7.Picture
  167.         Picture8.Picture = Picture7.Picture
  168.      End If
  169.      Flag = Flag + 1
  170.      If Flag = 7 Then
  171.         Flag = 0
  172.      End If
  173. End Sub
  174.